home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / ada / adaed-1.11 / adaed-1 / Adaed-1.11.0a / gpredef.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-07  |  2.9 KB  |  170 lines
  1. /*
  2.  * Copyright (C) 1985-1992  New York University
  3.  * 
  4.  * This file is part of the Ada/Ed-C system.  See the Ada/Ed README file for
  5.  * warranty (none) and distribution info and also the GNU General Public
  6.  * License for more details.
  7.  
  8.  */
  9.  
  10. #include <stdio.h>
  11. #include "config.h"
  12. #include "miscprots.h"
  13. #include "gpredefprots.h"
  14.  
  15. /* define procedures:
  16.  *    predef_name(int)   int => string of predef opcode (or null if no such)
  17.  */
  18.  
  19. char *pretab[] = {
  20.     "",
  21.     /* Operations where a file argument is given */
  22.  
  23.     "SET_LINE_LENGTH_FILE",
  24.     "SET_PAGE_LENGTH_FILE",
  25.     "LINE_LENGTH_FILE",
  26.     "PAGE_LENGTH_FILE",
  27.     "NEW_LINE_FILE",
  28.     "SKIP_LINE_FILE",
  29.     "END_OF_LINE_FILE",
  30.     "NEW_PAGE_FILE",
  31.     "SKIP_PAGE_FILE",
  32.     "END_OF_PAGE_FILE",
  33.     "TIO_END_OF_FILE_FILE",
  34.     "SET_COL_FILE",
  35.     "SET_LINE_FILE",
  36.     "COL_FILE",
  37.     "LINE_FILE",
  38.     "PAGE_FILE",
  39.     "GET_CHAR_FILE_ITEM",
  40.     "PUT_CHAR_FILE_ITEM",
  41.     "GET_STRING_FILE_ITEM",
  42.     "PUT_STRING_FILE_ITEM",
  43.     "GET_LINE_FILE",
  44.     "PUT_LINE_FILE",
  45.     "GET_INTEGER_FILE_ITEM",
  46.     "PUT_INTEGER_FILE_ITEM",
  47.     "PUT_INTEGER_STRING",
  48.     "GET_FLOAT_FILE_ITEM",
  49.     "PUT_FLOAT_FILE_ITEM",
  50.     "GET_FIXED_FILE_ITEM",
  51.     "PUT_FIXED_FILE_ITEM",
  52.     "GET_ENUM_FILE_ITEM",
  53.     "PUT_ENUM_FILE_ITEM",
  54.  
  55.     /* Operations using default input file */
  56.  
  57.     "GET_CHAR_ITEM",
  58.     "GET_STRING_ITEM",
  59.     "GET_LINE",
  60.     "GET_INTEGER_ITEM",
  61.     "GET_INTEGER_STRING",
  62.     "GET_FLOAT_ITEM",
  63.     "GET_FLOAT_STRING",
  64.     "GET_FIXED_ITEM",
  65.     "GET_FIXED_STRING",
  66.     "GET_ENUM_ITEM",
  67.     "GET_ENUM_STRING",
  68.     "SKIP_LINE",
  69.     "END_OF_LINE",
  70.     "SKIP_PAGE",
  71.     "END_OF_PAGE",
  72.     "TIO_END_OF_FILE",
  73.  
  74.     /* Operations using default output file */
  75.  
  76.     "SET_LINE_LENGTH",
  77.     "SET_PAGE_LENGTH",
  78.     "LINE_LENGTH",
  79.     "PAGE_LENGTH",
  80.     "NEW_LINE",
  81.     "NEW_PAGE",
  82.     "SET_COL",
  83.     "SET_LINE",
  84.     "COL",
  85.     "LINE",
  86.     "PAGE",
  87.     "PUT_CHAR_ITEM",
  88.     "PUT_STRING_ITEM",
  89.     "PUT_LINE",
  90.     "PUT_INTEGER_ITEM",
  91.     "PUT_FLOAT_ITEM",
  92.     "PUT_FLOAT_STRING",
  93.     "PUT_FIXED_ITEM",
  94.     "PUT_FIXED_STRING",
  95.     "PUT_ENUM_ITEM",
  96.     "PUT_ENUM_STRING",
  97.  
  98.     /* Other operations */
  99.  
  100.     "TIO_CREATE",
  101.     "TIO_OPEN",
  102.     "TIO_CLOSE",
  103.     "TIO_DELETE",
  104.     "TIO_RESET",
  105.     "TIO_RESET_MODE",
  106.     "TIO_MODE",
  107.     "TIO_NAME",
  108.     "TIO_FORM",
  109.     "TIO_IS_OPEN",
  110.     "SET_INPUT",
  111.     "SET_OUTPUT",
  112.     "STANDARD_INPUT",
  113.     "STANDARD_OUTPUT",
  114.     "CURRENT_INPUT",
  115.     "CURRENT_OUTPUT",
  116.     "SIO_CREATE",
  117.     "SIO_OPEN",
  118.     "SIO_CLOSE",
  119.     "SIO_DELETE",
  120.     "SIO_RESET",
  121.     "SIO_RESET_MODE",
  122.     "SIO_MODE",
  123.     "SIO_NAME",
  124.     "SIO_FORM",
  125.     "SIO_IS_OPEN",
  126.     "SIO_READ",
  127.     "SIO_WRITE",
  128.     "SIO_END_OF_FILE",
  129.     "DIO_CREATE",
  130.     "DIO_OPEN",
  131.     "DIO_CLOSE",
  132.     "DIO_DELETE",
  133.     "DIO_RESET",
  134.     "DIO_RESET_MODE",
  135.     "DIO_MODE",
  136.     "DIO_NAME",
  137.     "DIO_FORM",
  138.     "DIO_IS_OPEN",
  139.     "DIO_READ",
  140.     "DIO_READ_FROM",
  141.     "DIO_WRITE",
  142.     "DIO_WRITE_TO",
  143.     "DIO_SET_INDEX",
  144.     "DIO_INDEX",
  145.     "DIO_SIZE",
  146.     "DIO_END_OF_FILE",
  147.     "CLOCK",
  148.     "YEAR",
  149.     "MONTH",
  150.     "DAY",
  151.     "SECONDS",
  152.     "SPLIT",
  153.     "TIME_OF",
  154.     "ADD_TIME_DUR",
  155.     "ADD_DUR_TIME",
  156.     "SUB_TIME_DUR",
  157.     "SUB_TIME_TIME",
  158.     "LT_TIME",
  159.     "LE_TIME",
  160.     "GT_TIME",
  161.     "GE_TIME"
  162. };
  163.  
  164. char *predef_name(int op)                                        /*;predef_name*/
  165. {
  166.     /* return name given predef opcode */
  167.     if (op < 1 || op > 130 ) chaos("predef_name failed");
  168.     return pretab[op];
  169. }
  170.